home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LANDS.cpt / Lock and Scroll / card_3301.txt < prev    next >
Text File  |  1988-01-26  |  3KB  |  107 lines
  1. -- card: 3301 from stack: in
  2. -- bmap block id: 4495
  3. -- flags: 0000
  4. -- background id: 3525
  5. -- name: about
  6.  
  7.  
  8. -- part 22 (button)
  9. -- low flags: 80
  10. -- high flags: E002
  11. -- rect: left=29 top=284 right=309 bottom=121
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: No match.
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   ask "Input the word:" with "OK"
  23.   find word it in field "word"
  24.   if the result is not empty then
  25.     show card button "no match."
  26.     wait 2 seconds
  27.     hide card button "no match."
  28.   end if
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 15 (field)
  34. -- low flags: 81
  35. -- high flags: 2007
  36. -- rect: left=127 top=173 right=308 bottom=470
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 14
  42. -- style flags: 0
  43. -- line height: 18
  44. -- part name: about
  45. ----- HyperTalk script -----
  46. on mouseup
  47.   set the visible of card field "about" to not the visible of card field "about"
  48. end mouseup
  49.  
  50.  
  51.  
  52. -- part 25 (field)
  53. -- low flags: 01
  54. -- high flags: 2007
  55. -- rect: left=21 top=132 right=319 bottom=444
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 14
  61. -- style flags: 0
  62. -- line height: 18
  63. -- part name: 
  64.  
  65.  
  66. -- part 26 (button)
  67. -- low flags: 00
  68. -- high flags: 2000
  69. -- rect: left=449 top=130 right=161 bottom=483
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 29114 / 29114
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: New Button
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   visual dissolve
  81.   go to card id 3977
  82. end mouseUp
  83.  
  84.  
  85.  
  86.  
  87. -- part contents for card part 15
  88. ----- text -----
  89. Lock and scroll is an example of linked fields as they might be implemented in a glossary or other Hypertext reference. As you scroll through the word list, the definitions change accordingly. You can also input the word from the keyboard, or as you'll see on the next card, click on the word from any other text field.
  90.  
  91. Click on this field to return to the utility.
  92.  
  93. -- part contents for card part 25
  94. ----- text -----
  95.  
  96. The Acme Dot Company now offers 18 stackware and other Macintosh software products. Our newsletter is available to you free--our new Winter Catalog Stack, containing free samples of many of our products, costs $5.00.
  97.  
  98. We'd sure like to hear from you.
  99.  
  100. THE ACME DOT COMPANY
  101. P. O. BOX 5923
  102. TITUSVILLE, FL 32783
  103.  
  104. COMPUSERVE: 76703,654
  105.  
  106. And keep on stackin'!
  107.